72 65536 mul 4718592 div dup cols mul exch rows mul scale
/picstr1 cols 7 add 8 idiv string def
/readdata {currentfile exch readhexstring pop} def
/imagemask2 level2 {/imagemask load def} {{begin
Width Height false ImageMatrix
/DataSource load imagemask end} def} ifelse
/beginimage {
imagemask2
} def
12 dict begin
/ImageType 1 def
/Width cols def
/Height rows def
/ImageMatrix [cols 0 0 rows neg 0 rows] def
/BitsPerComponent 1 def
/Decode [0 1] def
/DataSource {picstr1 readdata} def
currentdict end